Stone Design/Stone Design.iso/Stone_Friends/Wave/WavesWorld/Source/Shaders/RCShaders/RCGlass.sl

Text File | 1995-03-22 | 309 b | 17 lines

surface
RCGlass (
    float Ks = 1.0,
      Kd = 0.5,
      roughness = 0.1;
    color specularcolor = 1.0)

{
    float silhouette;
    point Nf = faceforward(N, I);
    color white = color(1,1,1);

    silhouette = I.Nf;
    Oi = 0.1;
    Ci = specularcolor*(white*silhouette + Ks*specular(Nf, -I, roughness));
}